Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

"Commando "
" "
"presente par "
" Cyril SMITH"
"E-mail:"
"CSMITH@Wanadoo.fr"
"RECUPEREZ LE PARACHUTDEPLACEMENT:"
"( <<-<-0->->> )"
"( 4-5-6-x- )"
CoordOff
0A~Z
8.5F
ViewWindow 1,127,0,0,62,0
Text 1,1,"VENT"
Text 7,1,"+"
Text 7,14,0
Text 7,27,"+"
Green Graph Y=2Ran#
StoPict 6
Lbl 9
64A
45B
20+Int 81Ran#C
Lbl 7
Cls
RclPict 6
Int 14Ran#V
Ran#<.5-VV
Text 13,14+V,"."
F-Line A-3,B-2,A+6,B+11
F-Line A+3,B-2,A-6,B+11
F-Line A,B+2,A,B+8
Plot A-1,B+7
Plot X,B+6
Plot A+1,B+7
Plot X,B+6
Plot A+4,B+4
F-Line A-7,B+12,A+7,B+12
F-Line A-7,B+13,A+7,B+13
F-Line A-6,B+14,A+6,B+14
F-Line A-5,B+15,A+5,B+15
F-Line A-3,B+16,A+3,B+16
F-Line A-1,B+17,A+1,B+17
F-Line C-4,1,C+4,1
F-Line C+4,1,C+4,4
F-Line C+4,4,C-9,5
F-Line C-9,5,C-4,1
F-Line C-4,1,C-3,5
F-Line C-3,5,C,6
F-Line C,7,C,5
PlotOn C-1,7
B6Goto 3
Plot 1,0
A+VA
B-FB
'Lbl 1
'B1Goto 3
-1D
Do
Getkey=731D
Getkey=632D
Getkey=433D
Getkey=334D
Getkey=530D
LpWhile D=-1
D=1C-11C
D=2C-5C
D=3C+5C
D=4C+11C
C610C
C121115C
B>1Goto 7
Lbl 3
If A<C-8 Or A>C+6
Then "C'EST PA GRAVE IL EST MORT"
IfEnd
A<C-8"PERDU"
A<C-8Goto 8
A>C+6"PERDU"
A>C+6Goto 8
ClrText
"PARACHUTISTE SAUF"
Isz I
Isz F
Lbl 8
ClrText
Isz J
"SCORE"
Locate 7,1,I
Locate 9,1,"/"
Locate 10,1,J
"0=NON"
"CONTINUER"?D
D=0Stop
Goto 9